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6-SEP-1984 11: 06 (CPASRTL.SRCIPAS tock2. MAR; 1 (1) 
- TITLE PASRGLOCKE - Return process CPU time in msec 
IDENT /1-0 ; File: bASeLoc CK2.MAR Edit: 0DG1002 


'MARBAAARAARABRALAAASLASAARLALAASLASLESERASASASASSSRE RASA SERRA RA ARERR RSE RRA RASS SES | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH 


THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
ae PORAT Lon NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO atte it i LITY FOR THE USE OR RELIABILITY OF ITS 


* 
at 
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® 
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® 
® 
® 
* 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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® 
*® 
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* 
® 
* 
SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. » 
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++ 
; FACILITY: Pascal Language Support 
; ABSTRACT: 


| 
This module contains PASS$CLOCK2 which implements the Pascal 
CLOCK function. 


: ENVIRONMENT: User mode, AST Reentrant 
: AUTHOR: Steven B. Lionel, CREATION DATE: 6-July-1981 
; MODIFIED BY: 


1-001 - Original. SBL 6-July-1981 
1-002 - Use $GETJPIW to ensure synchronous operation. DG 31-Oct-1983 


fos | 
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et DECLARATIONS aes yi 11 98:32 LPASRIL. SREIPASCLOCK2..MAR; 1 . 3) 
9909 47 «SBTTL DECLARATIONS 
0000 49 : LIBRARY MACRO CALLS: 
0000 a0 § 
aie 2) SJPIDEF JPI$ bol 
; . symbols 
0000 35 z 
0000 4; 
4H 2? 3 EXTERNAL DECLARATIONS: 
0000 57 -DSABL GBL : Force all external symbols to be declared 
$908 28 EXTRN LIBSGET_EF 3; Get event flag number 
00 9 EXTRN LIBSFREE EF ; Free event flag number | 
0000 60 EXTRN LIBSSIGNAL ; Signal error 
0000 61 ; 
0000 66 ; MACROS: 
0000 63 ; | 
0000 64 ; NONE 
0000 65 ; 
0000 66 ; EQUATED SYMBOLS: 
0000 67 ; 
0000 68 ; NONE 
0000 69 ; 
0000 70 ; OWN STORAGE: 
0000 1 
0000 ie; : NONE 
0000 73: 
i464 fe ; PSECT DECLARATIONS: 
00000000 76 -PSECT _PAS$SCODE PIC, USR, CON, REL, LCL, SHR, - 
444 A EXE, RD, NOWRT, LONG 
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1-002 K2 = Return process CPU tine in 6=SEP-19 PASRTL.SRCIJPASCLOCK2.MAR; 1 (3) 
0 ae -SBTTL PASS$CLOCK2 = Return process CPU time in msec 

FUNCTIONAL DESCRIPTION: 


This routine returns the process's elapsed CPU time in 
milliseconds as the function value. 


CALLING SEQUENCE: 
cpu_time.wl.v = PASSCLOCK2 () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
; NONE 
: ROUTINE VALUE: 
: The current process's elapsed CPU time in milliseconds. 
SIDE EFFECTS: | 
Allocates and deallocates a local event flag number. | 


SS$_INTOVF, integer, overflow, if the CPU time in milliseconds is 
greater than 2**31-1 


If LIBSGET_EF or $GETJPI returns an error status, that status 
is signalléd. This should not occur in normal operation. 


b 


. 
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‘ 
; 
: 
; 
: 
‘ 
; 
; 
; 
; 
‘ 
: 
; 
; 
; 
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Py 
: 
° 
. 
; 
‘ 
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‘ 
‘ 
° 
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WAIN AININIIPIDINININININPIDINIDD 2 9 9 SF MOCO OOOOOOOCOOOOOOOOOOMWMC. 
AUF WR 9 OONAUE WN 0 OD NAU EWN OOO NAME WN 0 ODNAUE WN OC OONOAUIS Who 


ee ek ek et et = od =o 2 ss SS SS SS tS SS Ss SS SS SS SS SY 


4000 -ENTRY PASS$CLOCK2, “M<IV> ; Entry point 
SE 18 (C2 SUBL2 #24, SP : Make room for EFN, value and item List 
14 AE OF PUSHAB 20(SP) ; Address of EFN 
O00000000'GF 01 FB CALLS #1, G*LIBSGET_EF ; Get an event fiag number 
38 50 ~=«ED BLBC RO, ERROR ; Skip if error 
6— 04 B60 1 MOVW #4, OCSP) ; Buffer Length 
02 AE 0407 8F BO 001 MOVW #JPIS$ CPUTIM 2(SP) : Item code 
04 AE 10 AE 9E 001 MOVAB Vecs Py, 4(SP5 : Buffer address 
08 AE 7C 00 CLRQ 8(S ; No return Length address 
0 : End of list marker of zero 
50 SE oO 00 MOVL SP, RO Save item idee address 
08 SGETUPIW.S EFN=20(RO) , ITMLST=(ROS ; Call $GETJPI 
10 50 €9 00 E ; Skip if error 
14 AE 9F 003 PUSHAB 20(SP) Address of EFN 
00000000'GF 01 FB 004 CALLS #1, G*LIB esr ree EF i Free the event flag number 
50 10 AE OA C5 004 MULL3 #10, 16(SP), RO ; SGETJPI returns CPO time in 
04 ; 10 msec units, convert to 1 msec. 
04 ; This operation might overflow. 
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1005 PASSCLOCK2 = Return process CPU time in 6-SEP-1984 O18 :3e CPASRTL.SRCJPASCLOCK2.MAR; 1 — (3) | 
04C 137 | 
04 004C 138 RET ; Return to caller 
4D 139 
4D 140 ;+ 
Bhep 148 ; Come here with error code in RO if LIBSGET_EF or $GETJPI fails. 
50 DD 004D 143 ERROR: PUSHL RO ; Signal tat | 
00000000"GF 91 FB 34 144 CALLS #1, G*LIBSSIGNAL re eae | | 
0 04 O0056 145 CLRL RO ; Return zero if continue 
04 B38 198 RET ; Return to caller 
0059 148 END ; End of module PAS$CLOCK2 
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6-SEP=19 386 01: 1366: 733° VAX/VMS a: cro V04-00 Page 3 
Symbol table 6-SEP-1984 11 :06 (CPASRTL.S RCIP PASCLOCK2.MAR;1 (3) 
$$T1 = 00000001 ; 
ERROR 00000040 R 02 ; 
JPIS_CPUTIM = 00000407 3 
LIBSFREE_EF eeeeeeee XX 00 : 
LIBSGET_EF kekeeeer x 00 . 
LIBSSIGRAL eeteeree X 00 ° 
PASSCLOCK2 00000000 RG 8S ‘ 
SYSS$SGETJPIW teereree G 0 ; 
bomen eee ee eone snes + } : 
! Psect synopsis H | : 
PSECT name Allocation PSECT No. Attributes | : 
ABS 00000000 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD ms NOVEC BYTE > 
$$ 00000000 <¢ 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE ; 
PASSCODE 00000059 ¢ OF.) Gat 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG ‘ 
tae ama meme nn ener ete me em ee + : 
' Performance indicators ! | ; 
see we ewe SP ewe mM BF es ee ew ew Ke wwe HS oH | . 
Phase Page faults CPU Time Elapsed Time | ’ 
mmm ——“‘i™sSCSCSCSCSCC le ee ee a a a mam ema cm la ee ae me ma cm mmm it a a a eae en ee en en a a | 
Initialization 10 00:00:00.08 00:00:00.50 
oanene processing 70 00:00:00.63 00:00:04. 34 
114 00:00:01.71 00:00:06.73 
Symbol table sort 00:00:00.11 00:00:00.85 
s 2 40 00:00:00.44 00:00:02.21 
Syabot table output 2 00:00:00.02 00:00:00.02 
Psect synopsis output 3 00:00:00.02 00:00:00.06 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 241 00:00:03.02 00:00:14.72 


The working set Limit was 900 pages. 
7442 bytes (15 pages) of virtual memory were used to buffer the intermediate cod 
There were 10 pages of symbol table space allocated to hold 116 non-local and 0 local symbols. 
148 source Lines were read in Pass 1, producing 13 object records in Pass 2 

11 pages of virtual memory were used to define 10 macros. 


eer ee ne sane ewe ese ne ese ewe oe ns + 


Macro library name Macros defined 
_$255$DUA2B: [SYSLIBISTARLET .MLB; 2 Eo merneers 2 
200 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 


MACRO/ ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASCLOCK2/0BJ=OBJ$:PASCLOCK2 MSRC$:PASCLOCK2/UPDATE=(ENHS$:PASCLOCK2) 
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